home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Apple II Sample Code / APW.SC / SC24Teach / Teach.p / UGlobals.inc.p < prev    next >
Encoding:
Text File  |  1990-06-24  |  876 b   |  30 lines  |  [TEXT/pdos]
  1. {**********************************************************************
  2. {*
  3. {*
  4. {* Teach Globals -- Version 3.0  (implementation)
  5. {*
  6. {* Copyright (c)
  7. {* Apple Computer, Inc.  1986-1989
  8. {* All Rights Reserved.
  9. {*
  10. {* Developer Technical Support Apple II Sample Code
  11. {*
  12. {* This file contains the code which intializes the global variables 
  13. {* used by the busy box program.
  14. {*
  15. {**********************************************************************}
  16. {$R-}
  17.  
  18.  
  19.  
  20. PROCEDURE Debug;  INLINE $0000;
  21.  
  22.  
  23. procedure InitGlobals;
  24.     begin   {of InitGlobals}
  25.         staggerCount := 0;
  26.         quitFlag     := false;                  { Done flag will be set by Quit item. }
  27.         event.wmTaskMask := $001FFFFF;          { Allow TaskMaster to do everything. }
  28.         lastWindow      := GrafPortPtr(-1);     { Init this for CheckFrontW, forces it to run first time}
  29.     end;    {of InitGlobals}
  30.